home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs13.d81 / cyclone.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  12KB  |  421 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143] **GENERAL INPUT ROUTINE **
  8. 15 :
  9. 30 :
  10. 35 [143] +++ INPUT SECTION +++
  11. 40 [151]UO,0:UR$[178]"":UI$[178]""
  12. 42 [139]UL[178]0[167]UL[178]80
  13. 45 [153]"  CMDCMD";:[151]UC,0
  14. 50 [161]UI$:[139]UI$[178]""[167]50
  15. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  16. 60 [139]UI$[178][199](20)[167]105
  17. 62 [139] [195](UR$)[178][177]UL[167]50
  18. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  19. 70 UR$[178]UR$[170]UI$
  20. 75 [153]UI$;
  21. 80 [137]50
  22. 85 [143] +++ CHECK FOR HELP REQUEST +++
  23. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  24. 95 [139]UF[178]1[167][141]240
  25. 100 UF[178]0:[153]:[142]
  26. 102 [143] ++ CHECK DELETE ++
  27. 105 [139][195](UR$)[179]1[167]50
  28. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  29. 115 [153]"CMD  CMDCMD";:[137]50
  30. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  31. 125 [139][195](US$)[178]0[167]150
  32. 130 [129]US[178]1[164][195](US$)
  33. 135 [139]UI$[178][202](US$,US,1)[167][142]
  34. 140 [130]
  35. 145 UI$[178]"":[142]
  36. 150 [143] ** STANDARD INPUT **
  37. 152 [139][198](UI$)[178]46[167][142]
  38. 155 [139]UI$[178][199](32)[167][142]
  39. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  40. 165 [142]
  41. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  42. 175 [142]
  43. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  44. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  45. 187 [142]
  46. 190 UI$[178]"":[142]
  47. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  48. 197 [141]250
  49. 200 [141]245
  50. 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  51. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  52. 215 UZ[178]1:UV%[178][194](UT)
  53. 216 [137]300
  54. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  55. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  56. 219 [153]"LOAD";
  57. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  58. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  59. 230 [151]U1,U1%
  60. 232 [151]U2,U2%
  61. 233 [151]U4,U4%
  62. 234 [151]U3,U3%[171]1
  63. 235 [137]35
  64. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  65. 245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  66. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  67. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  68. 255 [142]
  69. 300 [143] ** MENU **
  70. 301 :
  71. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  72. 303 :
  73. 305 [153]"                MENU"
  74. 310 [153]" --------------------------------------"
  75. 315 [153]"       1.   BEGIN CYCLON FIGHTER
  76. 320 PRINT"       2.   STUDENT INSTRUCTIONS"
  77. 325 PRINT"       3.   TEACHER INSTRUCTIONS"
  78. 335 PRINT"       4.   QUIT"
  79. 340 PRINT" --------------------------------------"
  80. 345 PRINT"       PRESS A NUMBER KEY (1-4) ";
  81. 350 UL=1:US$="1234":GOSUB35:REM INPUT ROUTINE
  82. 352 US$=""
  83. 355 ONVAL(UR$)GOSUB1000,400,500,396
  84. 360 GOTO300
  85. 395 REM ** RE-ENABLE STOP KEY AND END **
  86. 396 IFPEEK(50003)<>1ANDPEEK(50003)<>160ANDPEEK(50003)<>0THEN399
  87. 397 SYSUU+71:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
  88. 398 PRINT"[154][147]":END
  89. 399 GOSUB875:RETURN
  90. 400 REM ** STUDENT INSTRUCTIONS **
  91. 405 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,0:POKE53280,0
  92. 410 UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
  93. 411 GOSUB 2790
  94. 412 GOSUB 1200
  95. 490 IFUZ=1THENSYSUP%:GOTO217
  96. 499 RETURN
  97. 500 REM ** TEACHER INSTRUCTIONS **
  98. 501 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,2:POKE53280,10
  99. 502 UP=0:UG$="[212]EACHER [201]NST":GOSUB850
  100. 503 PRINT"      [212]O THE BEST OF OUR KNOWLEDGE,"
  101. 504 PRINT"   THIS PROGRAM IS IN THE PUBLIC"
  102. 505 PRINT"   DOMAIN.  [201]F THIS IS NOT THE CASE"
  103. 506 PRINT"   PLEASE CONTACT:"
  104. 507 PRINT"      [195]OMMODORE [194]USINESS [205]ACHINES"
  105. 508 PRINT"          3370 [208]HARMACY [193]VE.
  106. 509 [153]"          ATNGINCOURT, (null)NTARIO"
  107. 510 [153]"          LENANADA   (null)1(null) 2(null)4"
  108. 511 [153]"          (416) 499-4292"
  109. 512 UP[178]1:[141] 835:[141] 850:
  110. 513 [153]"     (null)ROGRAM (null)AME: LENYCLON FIGHTER
  111. 514 PRINT"     [215]RITTEN [194]Y  : [213]NKNOWN
  112. 515 [153]"     (null)PGRADED PEEKY :          
  113. 516 PRINT"     [212]HIS PROGRAM WILL RUN ON ANY
  114. 519 [153]"         (null)VAL(null) 64 LEN(null)(null)(null)(null)(null)VAL(null)
  115. 520 PRINT"         [195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210]
  116. 521 [141]835
  117. 590 [139]UZ[178]1[167][158]UP%:[137]217
  118. 599 [142]
  119. 600 [143] ** PROGRAM MODIFICATION INST **
  120. 601 [153]"LOAD":[151]UT,UL%
  121. 605 UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850
  122. 660 [141]835
  123. 690 [139]UZ[178]1[167][158]UP%:[137]217
  124. 699 [142]
  125. 700 [143] ** TO USE 8032 LOAD CBM4032 **
  126. 710 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  
  127. 720 PRINT"      LOAD THE 'CBM 4032' PROGRAM"
  128. 730 SYSUU+71
  129. 740 END
  130. 800 REM ** T I T L E   P A G E **
  131. 802 PRINT"[147]";:POKEUT,UU%:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6
  132. 804 FORI=1TO38:PRINT"[166][146]";:NEXT
  133. 806 FORI=1TO22:PRINT"[157][166][146]";:NEXT
  134. 808 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
  135. 810 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
  136. 812 PRINT"[169]  [146]
  137. 814 [153]" WAIT   WAITSTEP
  138. 816 PRINT" [146]  [163][223]
  139. 818 [153]"(null)  WAIT
  140. 820 PRINT"C O M M O D O R E
  141. 822 [153]"EDUCATIONAL
  142. 824 PRINT"SOFTWARE
  143. 826 [143] ** COMMODORE LOGO **
  144. 827 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT":I[178]0
  145. 828 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]828
  146. 830 T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178]0
  147. 832 [137]300
  148. 835 [143] ** SPACE BAR PRESS **
  149. 840 [151]UO,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
  150. 844 [161]UI$:[139]UI$[179][177]" "[167]844
  151. 846 [142]
  152. 850 [143] ** PAGE DESIGN ROUTINE **
  153. 852 UP[178]UP[170]1
  154. 855 [153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  155. 860 [153]" --------------------------------------"
  156. 864 [139]UH[179][177]0[167]870
  157. 865 [153][200](UD$,24);[200](UP$,7);"HELP - PRESS   H <RETURN>"
  158. 870 UH[178]0:[153]"":[142]
  159. 875 [143] ** PLEASE WAIT REMARK **
  160. 880 [153][200](UD$,24);"           ONE MOMENT PLEASE...     "
  161. 885 [142]
  162. 900 [143] ** SET UP VARIABLES **
  163. 901 UX$[178]"H":UB[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UU[178]1024
  164. 902 UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1146:UM[178]32768:UO[178]158:[151] 50003,0
  165. 903 [139][194](50003)[178]0[167]UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048
  166. 904 [139][194](50003)[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024:UO[178]198
  167. 905 UD$[178]""
  168. 906 UP$[178]"                                       "
  169. 907 UT$[178]" LENYCLON PEEKATTLE CLOSECLOSECLOSECLOSE":[143] PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
  170. 908 [139] KS[178]0 [167] FR$[178]" ":AB$[178]"Y":LF$[178]"G":RT$[178]"H":DN$[178]"B":KS[178]1:[134]UQ%(1000)
  171. 909 [142]
  172. 910 [143] ** SET VARIABLES **
  173. 915 [141]900
  174. 920 [143] ** CHECK FOR 8032 **
  175. 925 [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
  176. 930 [139][194](UB[170]40)[179][177]96[167][141]700
  177. 931 [143] ** MEMORY CHECK **
  178. 932 [139] [184](0)[177]2000[167]937
  179. 933 [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
  180. 934 [153]"MEMORY TO RUN THIS PROGRAM !"
  181. 935 [158]UU[170]71
  182. 936 [128]
  183. 937 [153]"LOAD":[139][194](50003)[178]0[167]962
  184. 940 [143] ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  185. 941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145
  186. 942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133
  187. 943 [151]1104,145:[151]1105,234:[151]1082,234
  188. 945 [139][194](50003)[179][177]160[167]955
  189. 950 [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965
  190. 955 [139][194](50003)[179][177]1[167]990
  191. 960 [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965
  192. 962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21
  193. 963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141
  194. 964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3
  195. 965 [158]UU[170]48:[143] DISABLE STOP KEY
  196. 970 [141]800:[143] TITLE
  197. 980 [137]300:[143] MENU
  198. 990 [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128]
  199. 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143] ** PROGRAM STARTS HERE **
  200. 1001 [153]"LOAD";:[140]:[139][194](50003)[178]0[167][151]53281,6:[151]53280,6
  201. 1010 [141]900
  202. 1020 [143]
  203. 1030 [151]UT,UL%
  204. 1040 [153]"LOADLEN (null) LEN (null) (null)CLOSE(null)  PEEK ATN (null) (null) (null) VAL"
  205. 1100 [153]" (null)OUR SPEED DETERMINES DIFFICULTY:"
  206. 1110 [153]" 1 = SLOW."
  207. 1120 [153]" 2 = MEDIUM."
  208. 1130 [153]" 3 = FAST."
  209. 1140 [153]" (null)ELECT SPEED NOW: ";
  210. 1150 US$[178]"123":UL[178]1:[141]35:Q$[178]UR$
  211. 1160 [139] Q$ [179]"4" [175] Q$ [177] "0" [167] 1280
  212. 1170 [153]" (null)NLY DIFFICULTY 1 - 3 ALLOWED"
  213. 1180 [143]
  214. 1190 [137]1140
  215. 1200 [141] 850:[153]" ASCIRE BY PRESSING THE ";FR$;"WAIT KEY."
  216. 1210 [153]" ATNIM BY PRESSING THE "LF$"ON"AB$""RT$"CMDCMD"DN$"ONWAIT KEYS"
  217. 1220 [153]" "LF$"WAIT MAKES THE TARGET MOVE LEFT."
  218. 1230 [153]" "AB$"WAIT MAKES THE TARGET MOVE UP."
  219. 1240 [153]" "RT$"WAIT MAKES THE TARGET MOVE RIGHT.
  220. 1250 PRINT" "DN$"[146] MAKES THE TARGET MOVE DOWN."
  221. 1251 PRINT:PRINT"DO YOU WANT TO CHANGE THE KEYS ?"
  222. 1252 GET AN$:IF AN$<>"Y"ANDAN$<>"N"THEN1252
  223. 1253 IF AN$="N"THEN RETURN
  224. 1254 IF AN$="Y"THEN GOSUB 4000:GOTO 1200
  225. 1260 RETURN
  226. 1270 GET W$:IFW$=""THEN1290
  227. 1280 Q=VAL(Q$)
  228. 1290 REM
  229. 1300 REM
  230. 1310 V$=""
  231. 1320 H$=""
  232. 1330 R$="[171][192][218][192][179][157][157][157][145][178]"
  233. 1340 RE$="     [157][157][157][145] "
  234. 1350 G$="[192][192][219][157][145][213][219][201][157][219][192][192][157][157][157][157][157][202][219][203][157][157][221][157][221][157][145][145][145][145][145][221][157][145][221]
  235. 1360 [153]"LOAD":[151]UT,UU%
  236. 1370 [141]2100
  237. 1380 TI$[178]"000000"
  238. 1390 [153]"LOAD";
  239. 1400 [153]"========================================";
  240. 1410 [129] W[178]1 [164] 22
  241. 1420 [153]"-<";
  242. 1430 [130]
  243. 1440 [153]">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>";
  244. 1450 V[178][181]([187](1)[172]18)[170]3:H[178][181]([187](1)[172]36)[170]2:VO[178]18:HO[178]33
  245. 1460 [153][200](V$,25);"HITS-";HS;"   SHOTS-";SHOTS;"   REMAINING -";RR[171]HS;""
  246. 1470 [153][200](V$,VO);[200](H$,HO);RE$
  247. 1480 [153]G$
  248. 1490 [153][200](V$,V);[200](H$,H);R$
  249. 1500 [139] TI$[177]"000045"[167]2030
  250. 1510 [161] I$:[139]I$[178]""[167] 1560
  251. 1520 D$[178]I$
  252. 1530 [139]D$[178]AB$[176]I$[178]RT$[176]I$[178]LF$[176]I$[178]DN$[167]1560
  253. 1540 [139]D$[178]FR$[167]D$[178]"F":[137] 1740
  254. 1550 [137] 1510
  255. 1560 VO[178]V:HO[178]H
  256. 1561 [139] D$[178]AB$[167] D$[178]"8"
  257. 1562 [139] D$[178]LF$[167] D$[178]"4"
  258. 1563 [139] D$[178]RT$[167] D$[178]"6"
  259. 1564 [139] D$[178]DN$[167] D$[178]"2"
  260. 1570 [145]([197](D$)[173]2)[137]1580,1590,1600,1610
  261. 1580 V[178]V[170]Q:[137]1620
  262. 1590 H[178]H[171](Q[170]1):[137]1620
  263. 1600 H[178]H[170](Q[170]1):[137]1620
  264. 1610 V[178]V[171]Q
  265. 1620 RV[178][181]([187](1)[172]3)[171]1
  266. 1630 RH[178][181]([187](1)[172]3)[171]1
  267. 1640 V[178]V[170]RV:H[178]H[170]RH
  268. 1650 [139]V[179]3[167] V[178]3
  269. 1660 [139]H[179]1[167]H[178]1
  270. 1670 [139] V[177]23[167]V[178]23
  271. 1680 [139] H[177]34[167]H[178]34
  272. 1690 [139]Q[178]1[175]TI$[178]"000035"[167]2560
  273. 1700 [139]Q[178]2[175]TI$[178]"000025"[167]2560
  274. 1710 [139]Q[178]3[175]TI$[178]"000015"[167]2560
  275. 1720 [139]Q[178]3[175]TI$[178]"000030"[167]2560
  276. 1730 [137] 1470
  277. 1740 [143] FIRE
  278. 1750 SHOTS[178]SHOTS[170]1
  279. 1760 [153][200](V$,21);[163]28);
  280. 1770 [153]"(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON "
  281. 1780 [153][200](V$,21);"(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON ON ON ON ON ON ON "
  282. 1790 [153][200](V$,21);[163]28);
  283. 1800 [153]" CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON "
  284. 1810 [153][200](V$,21);" ON ON ON ON ON ON ON ON ON ON ON ON ON ON ON ON "
  285. 1820 [139] [194](1443)[178] 64 [167] 1900
  286. 1830 [139] [194](1443)[178] 90 [167] 1900
  287. 1840 [139] [194](1523)[178] 90 [167] 1900
  288. 1850 [139] [194](1482)[178] 90 [167] 1900
  289. 1860 [139] [194](1484)[178] 90 [167] 1900
  290. 1870 [153][200](V$,25);"HITS-";HS;"   SHOTS-";SHOTS;"   REMAINING -";RR[171]HS;""
  291. 1880 [139]SHOTS[178]50[167]2070
  292. 1890 [137] 1560
  293. 1900 [143]    DIRECT HIT
  294. 1910 HIT$[178]" SPC( CMDCMDCMDONSPC( SPC(CMDCMDCMDSPC( SPC(CMDCMDCMDONONONCMDSPC(   SPC(CMDCMDCMDCMDCMDSPC(   SPC("
  295. 1920 CR$[178]"   CMDCMDCMDON   CMDCMDCMD   CMDCMDCMDCMDONONON     CMDCMDCMDCMDCMD     "
  296. 1930 [129]DH[178]1[164]5
  297. 1940 [153][200](V$,12);[200](H$,18);HIT$
  298. 1950 [129]X[178]1[164]100:[130]
  299. 1960 [153][200](V$,12);[200](H$,18);CR$
  300. 1970 [129]X[178]1[164]100:[130]
  301. 1980 [130]
  302. 1990 HS[178]HS[170]1
  303. 2000 [139]HS[178]RR[167]2420
  304. 2010 TM[178]TM[170][197](TI$)
  305. 2020 TI$[178]"000000":[137]1390
  306. 2030 [153][200](V$,V);[200](H$,H);RE$
  307. 2040 [153][200](V$,18);"THE ENEMY HAS OVER-POWERED YOU"
  308. 2050 [129]X[178]1[164]2000:[130]
  309. 2060 [137]2670
  310. 2070 [153][200](V$,20);"WEAPONS ENERGY DEPLETEDONON"
  311. 2080 [129]X[178]1[164]2000:[130]
  312. 2090 [137]2670
  313. 2100 [153]"LOAD";:[141]2340
  314. 2110 R1$[178]"* ON* CMDCMD* "
  315. 2120 R2$[178]"* ON* CMDCMD* ONONON* CMDCMD* "
  316. 2130 R3$[178]"* ON* CMDCMD* ONONON* CMDCMD* ONONONONON* CMDCMD* CMDCMD* "
  317. 2140 R[178][181]([187](1)[172]3[170]1)
  318. 2150 [145]R[141]2310,2320,2330
  319. 2160 [129]X[178]30[164]19[169][171]1
  320. 2170 [153][200](V$,13);[200](H$,X);RR$
  321. 2180 M[178]M[170]1:[139]M[178]2[167]2230
  322. 2190 [139]R[178]1[167][153][200](V$,25)"        3 CYCLON SHIPS APPROCHING"
  323. 2200 [139]R[178]2[167][153][200](V$,25)"        5 CYCLON SHIPS APPROCHING"
  324. 2210 [139]R[178]3[167][153][200](V$,25)"        8 CYCLON SHIPS APPROCHING"
  325. 2220 [137]2240
  326. 2230 [153][200](V$,25)"                                       ";:M[178]0
  327. 2240 [129]XX[178]1[164]300:[130]
  328. 2250 [130]
  329. 2260 [153][200](V$,20);[200](H$,10);"FIGHTER'S IN RANGE"
  330. 2270 [129]X[178]1[164]1000:[130]
  331. 2280 [153][163]8)"SWITCHING TO ATTACK MODE"
  332. 2290 [129]X[178]1[164]1500:[130]
  333. 2300 [142]
  334. 2310 RR$[178]R1$:RR[178]3:[142]
  335. 2320 RR$[178]R2$:RR[178]5:[142]
  336. 2330 RR$[178]R3$:RR[178]8:[142]
  337. 2340 [153]"OROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROR";
  338. 2350 [129]X[178]1[164]22
  339. 2360 [153]"OROR";
  340. 2370 [130]
  341. 2380 [153]"OROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROR"
  342. 2390 [153][163]10) "LONG RANGE SCANNER"
  343. 2400 [153][200](V$,13);[200](H$,16);"TANTANTAN(null)TANTANTANCMDCMDCMDCMDON(null)CMDON(null)CMD(null)CMD(null)"
  344. 2410 [142]
  345. 2420 [153][200](V$,22);"ALL CYCLON FIGHTERS DESROYED"
  346. 2430 [153][200](V$,25);"HITS-";HS;"   SHOTS-";SHOTS;"   REMAINING -";RR[171]HS;""
  347. 2440 [129]X[178]1[164]2000:[130]
  348. 2450 [153]"LOAD"
  349. 2460 [153]"GOOD GOING .............!!!!!!"
  350. 2470 [153]"YOU DESTROYED ";HS;" CYLON SHIPS"
  351. 2480 [153]"IN ";TM;" CENTONS"
  352. 2490 [153]"SHOTS FIRED - ";SHOTS
  353. 2500 [153]"PROFICIENCY RATING - ";[181](HS[173]SHOTS[172]10000)[173]100;"%"
  354. 2510 [153]"DO YOU WISH ANOTHER MISSION? ";:US$[178]"YN":UL[178]1:[141]35
  355. 2520 Z$[178]UR$
  356. 2530 [139]Z$[178]"Y"[167]HS[178]0:TM[178]0:SHOTS[178]0:[137]1000
  357. 2540 [139]Z$[178]"N"[167][128]
  358. 2550 [137]2520
  359. 2560 [153][200](V$,VO);[200](H$,HO);RE$
  360. 2570 [153][200](V$,20);[200](H$,4);"YOU HAVE OVERRUN THE ENEMY SHIP"
  361. 2580 [153][163]5)"THE ENEMY IS BEHIND YOU"
  362. 2590 [153][163]5)"ONHIT 'R' TO REVERSE THRUST"
  363. 2600 T[178]TI[170]180
  364. 2610 [161]Z$
  365. 2620 [139]Z$[178]"R"[167][153]"LOAD":[137]1390
  366. 2630 [139]TI[177]T[167]2650
  367. 2640 [137]2610
  368. 2650 [153]"LOADTHE ENEMY HAS MADE A HIT ON YOUR SHIP"
  369. 2660 [153]"FROM BEHIND........!!!!!!"
  370. 2670 [153]"------- YOU HAVE LOST -------
  371. 2680 REM
  372. 2690 REM
  373. 2700 GOSUB835
  374. 2710 REM
  375. 2720 REM
  376. 2730 REM
  377. 2740 REM
  378. 2750 REM
  379. 2760 REM
  380. 2770 REM
  381. 2780 GOTO300
  382. 2790 PRINT" [217]OU ARE IN COMMAND OF A VIPER"
  383. 2800 PRINT" FIGHTERSHIP. [217]OUR LONG RANGE SENSORS"
  384. 2810 PRINT" WILL WARN OF APPROCHING ENEMY CYCLON"
  385. 2820 PRINT" FIGHTERS WHEN THE COMPUTER SWITCHES TO"
  386. 2830 PRINT" ATTACK MODE, THE AUTO-LOCK CIRCUITRY"
  387. 2840 PRINT" WILL KEEP YOU IN RANGE, HOWEVER THE"
  388. 2850 PRINT" FINAL AIMING IS UP TO YOU. [217]OUR
  389. 2860 [153]" WEAPONS ENERGY WILL ALLOW 50 SHOTS."
  390. 2870 [141] 835:[141] 850
  391. 2890 [153]" (null)INCE YOU HAVE THE FASTEST SHIP IN"
  392. 2900 [153]" THE GALAXY, BE PREPARED TO REVERSE"
  393. 2910 [153]" THRUST IN THE EVENT YOU OVERRUN THE"
  394. 2920 [153]" ENEMY (THE COMPUTER WILL PROMPT YOU)."
  395. 2930 [153]" LEFT$OWEVER BE CAREFUL-IF THE CYCLON GETS"
  396. 2940 [153]" BEHIND YOU HIS AUTO-LOCK CIRCUIT WORKS"
  397. 2950 [153]" WELL ALSO, AND THERE WILL NOT BE MUCH"
  398. 2960 [153]" TIME TO ESCAPE HIS LASER BEAM."
  399. 2970 [141] 835:[141] 850
  400. 2990 [153]" STR$URING THE BATTLE YOU WILL HAVE ONLY "
  401. 3000 [153]" 45 CENTONS OF TIME TO TRACK DOWN EACH"
  402. 3010 [153]" FIGHTER BEFORE THE OTHER SHIPS COME TO"
  403. 3020 [153]" HIS RESCUE."
  404. 3030 [141] 835:[142]
  405. 4000 [153]"LOADHIT THE KEY FOR UPWAIT;";
  406. 4010 [161] AN$:[139] AN$[178]""[167] 4010
  407. 4020 AB$[178]AN$:[153]AN$
  408. 4030 [153]"HIT THE KEY FOR DOWNWAIT;";
  409. 4040 [161] AN$:[139] AN$[178]""[167] 4040
  410. 4050 DN$[178]AN$:[153]AN$
  411. 4060 [153]"HIT THE KEY FOR LEFTWAIT;";
  412. 4070 [161] AN$:[139] AN$[178]""[167] 4070
  413. 4080 LF$[178]AN$:[153]AN$
  414. 4090 [153]"HIT THE KEY FOR RIGHTWAIT;";
  415. 4100 [161] AN$:[139] AN$[178]""[167] 4100
  416. 4110 RT$[178]AN$:[153]AN$
  417. 4120 [153]"HIT THE KEY TO FIREWAIT;";
  418. 4130 [161] AN$:[139] AN$[178]""[167] 4130
  419. 4140 FR$[178]AN$:[153]AN$
  420. 4150 [142]
  421.